home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
tttdem51.zip
/
WINDEM2.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-01-31
|
1KB
|
39 lines
Program WinTTT5_Demo_2;
Uses DOS, Crt, FastTTT5, WinTTT5;
var
I : integer;
Ch : char;
begin
Clrscr;
Offcursor;
Fillscreen(1,1,80,25,white,black,chr(176));
FBox(5,3,25,8,white,black,1);
SaveScreen(1);
WriteCenter(25,black,lightgray,'Press any key to see a part restore from the heap');
Ch := ReadKey;
Fillscreen(1,25,80,25,black,lightgray,' '); {clear Message line}
PartRestoreScreen(1,5,3,25,8,50,15);
DisposeScreen(1);
WriteCenter(25,black,lightgray,'Press any key to see a screen move');
Ch := ReadKey;
MoveScreenBlock(50,15,70,20,55,3);
Fillscreen(50,15,70,20,white,black,chr(176));
WriteCenter(25,black,lightgray,'Press any key to see a screen copy');
Ch := ReadKey;
CopyScreenBlock(1,1,80,12,1,13);
WriteCenter(25,black,lightgray,'Press any key to see a partial screen scroll');
Ch := ReadKey;
For I := 1 to 24 do
begin
Scroll(up,39,1,80,25-I);
Delay(75); {faster than an Izuzu!}
end;
WriteAT(40,22,white,black,'Run DemoTTT.exe for the main demo program');
WriteAT(40,23,white,black,'TechnoJock''s Turbo Toolkit v5.0');
ClearLine(25,white,black); {clear Message line}
Ch := Readkey;
ClrScr;
Reset_StartUp_Mode;
end.